home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / demo-versionen / reflections4 / ref4_demo-installation < prev    next >
Text File  |  1996-09-03  |  14KB  |  385 lines
  1. ; $VER:Reflections 4.0 Installscript v2.2-DemoCD (10.08.1996)
  2. ; written 1996 by Helmut Eisenkolb for Oberland, Kronberg (Germany)
  3. ; Anpassung für Amiga Plus-CD vom 03.09.1996
  4.  
  5.  
  6. (set @minuser "average")
  7. (set @appname "Reflections 4.0")
  8. (set @language "deutsch")
  9.  
  10. (complete 0)
  11.  
  12. (welcome "Willkommen bei Reflections 4.0 Amiga!\n")
  13.  
  14. (message "\nReflections 4.0 Demo Installation v2.2 (10.08.1996)\n\n"
  15.          "Im Folgenden wird die Reflections 4 Demo auf Ihrem Amiga "
  16.          "installiert.\n\n"
  17.          "©1996 by Oberland - alle Rechte vorbehalten.\n\n\n"
  18.      "Installer and Installer project icon "
  19.      "(c) Copyright 1995-96 Escom AG.  All Rights Reserved. "
  20.           "Reproduced and distributed under license from Escom AG.")
  21.  
  22. (set modus 1)
  23.  
  24. (if (= (exists "envarc:Ref4" (noreq)) 1)
  25.  (  (set refpath (getenv "Ref4"))
  26.     (if (OR (= (exists (tackon refpath "Ref4")) 1) (= (exists (tackon refpath "Ref4_Demo")) 1))
  27.         (set modus (askchoice (prompt "Das Installationsprogramm hat auf Ihrem Rechner unter "
  28.                           refpath " eine bereits installierte Version"
  29.                           " von Reflections 4 gefunden. Soll diese Version ersetzt werden?")
  30.                        (help (cat "\nWenn Sie \"Version ersetzen\" auswählen, werden nur"
  31.                           " die Programmdateien Ihrer bereits installierten Reflections-Version überschrieben.\n\n"
  32.                           "Ihre Seriennummer benötigen Sie in jedem Fall !!!"))
  33.                        (choices "Version ersetzen" "Neuinstallation"))
  34.     )
  35.     )
  36.  )
  37. )
  38.  
  39. (complete 1)
  40.  
  41. (set update 2)
  42.  
  43. (if (AND (= (exists "REF3:" (noreq)) 2) (= (exists "REF3:ref3" (noreq)) 1) )
  44.     (set update (askchoice (prompt "Das Installationsprogramm hat auf Ihrem Rechner unter"
  45.                           " der Zuweisung REF3: eine alte Reflections Version 3 gefunden.\n"
  46.                   "Reflections 4 wird wegen seiner geänderten Struktur und zum Schutz Ihrer "
  47.                   "alten Daten in einem NEUEN Verzeichnis außerhalb von REF3: installiert.\n\n"
  48.                           "Soll die alte Version gelöscht werden?\n\n"
  49.                   "(Ihre Daten bleiben selbstverständlich erhalten!)")
  50.                        (help (cat "\nWenn Sie \"Ref3 Löschen\" auswählen, werden nur"
  51.                           " die Programmdateien und Help-Files Ihrer"
  52.                               " alten Reflections-Version entfernt.\n"
  53.                           "Diese Operation schafft ca. 1,3 MB freien Platz auf Ihrer Festplatte.\n\n"
  54.                           "Falls Sie die komplette Schublade von Reflections 3 mit allen Daten löschen wollen, "
  55.                           " sollten Sie zuvor die alte Zuweisung für REF3: aus Ihrer Datei"
  56.                           " s:user-startup entfernen.\n\n"))
  57.                        (choices "Ref3 löschen" "Ref3 behalten"))
  58.     )
  59. )
  60.  
  61.  
  62. (if (= modus 1) (
  63.  
  64.  
  65.     (until (= status 1) (
  66.         (set ziel (askdir (prompt "Wo soll eine neue Schublade für\n"
  67.                                         "Reflections 4.0 erstellt werden?")
  68.                                 (help (cat "\nHier wählen Sie bitte den Pfad aus, wo"
  69.                                            " eine neue Schublade erstellt wird, in"
  70.                                            " der alle zu Reflections 4.0 gehörigen"
  71.                                            " Programmteile und Daten installiert werden"
  72.                                            " sollen. Dieser Pfad darf keine Leerzeichen enthalten!\n\n"
  73.                                            "Die Schublade wird vom Installationsprogramm"
  74.                                            " automatisch angelegt, Sie brauchen sie nicht"
  75.                                            " in Ihrer Auswahl mit anzugeben.\n\n"
  76.                                            "Der Name der Schublade wird im nächsten"
  77.                                            " Installationsschritt von Ihnen erfragt."))
  78.                                 (default @default-dest)
  79.                   )
  80.         )
  81.         
  82.  
  83.  
  84.         (set schubname (askstring (prompt "\nWie soll die neue Schublade für\n"
  85.                                           "Reflections 4.0 heißen?")
  86.                                   (help (cat "\nHier geben Sie bitte den Namen der Schublade an, "
  87.                                              "die vom Installationsprogramm neu erstellt wird. Auch der Name der Schublade darf keine Leerzeichen enthalten!"))
  88.                                       (default "Reflections")
  89.                        )
  90.         )
  91.         (set pfad (tackon ziel schubname))
  92.         (if (< update 2)
  93.             (if (OR (= (expandpath "REF3:") (expandpath ziel)) (= (expandpath "REF3:") (expandpath pfad)))
  94.                 (message "\nACHTUNG: Sie haben versucht Reflections 4 in das Verzeichnis der alten Reflections "
  95.                      "Version 3 zu installieren. Dies ist jedoch NICHT möglich."
  96.                 )
  97.                 (set status 1)
  98.             )
  99.             (set status 1)
  100.         )
  101.  
  102.     ))
  103.     (set @default-dest pfad)
  104.     (makedir pfad (infos))
  105. ))
  106.  
  107. (if (= modus 0) (
  108.     (set pfad refpath)
  109.     (set @default-dest refpath)
  110. ))
  111.  
  112. (delete "Env:Referror")
  113.  
  114.  
  115. (complete 3)
  116.  
  117. (set art 0)
  118.  
  119. (message "\nDie Reflections 4 Programmdateien werden jetzt installiert.\n"
  120.          "\nBitte beachten Sie, daß in dieser DEMO-Version nur die Standart-Version "
  121.          "von Reflections vorgestellt wird. Die Vollversion beinhaltet auch "
  122.          "eine spezielle Version, die auf den Betrieb mit einem mathematischen Coprozessor angepaßt wurde.")
  123.  
  124.  
  125. (working "\nErstellen der Reflections - Unterverzeichnisse...")
  126.  
  127. (run (cat "lhex -fw" pfad " x main.lha"))
  128.  
  129. (makedir (tackon pfad "Material") (infos))
  130. (makedir (tackon pfad "Szenen") (infos))
  131. (makedir (tackon pfad "Textur") (infos))
  132. (makedir (tackon pfad "Fonts3D") (infos))
  133. (makedir (tackon pfad "Hilfe") (infos))
  134. (makedir (tackon pfad "Anim") (infos))
  135. (makedir (tackon pfad "Bild") (infos))
  136. (makedir (tackon pfad "Skripts") (infos))
  137. (makedir (tackon pfad "Xtern") (infos))
  138. (makedir (tackon pfad "Weiteres") (infos))
  139. (makedir (tackon pfad "Arexx") (infos))
  140. (makedir (tackon pfad "Tutorial") (infos))
  141.  
  142. (complete 5)
  143.  
  144. (if (= modus 1) (
  145.     (working "\nEntpacken der Zubehördateien...")
  146.     (run (cat "lhex -fw" (tackon pfad "Fonts3d") " x fonts3d.lha"))
  147.     (complete 9)
  148.     (run (cat "lhex -fw" (tackon pfad "Hilfe") " x hilfe.lha"))
  149.     (complete 14)
  150.     (run (cat "lhex -fw" (tackon pfad "Tutorial") " x tutorial.lha"))
  151.     (complete 19)
  152.     (run (cat "lhex -fw" (tackon pfad "Skripts") " x skripte.lha"))
  153.     (complete 25)
  154.     (run (cat "lhex -fw" (tackon pfad "Szenen") " x szenen.lha"))
  155.     (complete 30)
  156. ))
  157.  
  158. (if (= modus 1) (
  159.     (working "\nEntpacken der Materialien und Texturen...")
  160.     (run (cat "lhex -fw" (tackon pfad "Material") " x material.lha"))
  161.     (complete 35)
  162.     (run (cat "lhex -fw" (tackon pfad "Textur") " x textur.lha"))
  163. ))
  164.  
  165. (complete 40)
  166.  
  167. (working "\nEntpacken der Beams Demoversion...")
  168. (run (cat "lhex -fw" pfad " x beams4demo.lha"))
  169. (working "\nEntpacken der Reflections Demoversion...")
  170. (run (cat "lhex -fw" pfad " x ref4demo.lha"))
  171.  
  172. (complete 95)
  173.  
  174. (if (= (exists "ENV:Referror") 1) (
  175.     (set referror (getenv "Referror"))
  176.     (message "\nFolgender Fehler ist bei der Entschlüsslung der Reflections "
  177.          "Programmdatei aufgetreten:\n\n" referror)
  178. ))
  179.  
  180.  
  181.  
  182. (complete 96)
  183.  
  184.  
  185. (set cfg0 (tackon pfad "Ref.CFG"))
  186. (set cfg1 (tackon pfad "cfg1"))
  187.  
  188. (if (= modus 0) (set mode (askchoice (prompt "Wollen Sie Ihre bisherige Config-Datei von Reflections 4 beibehalten"
  189.                        " oder eine neue Config-Datei erstellen lassen?") 
  190.                    (help "\nFalls Sie eine neue Config-Datei erstellen, wird Ihre alte Ref.CFG als Ref.CFG_ALT gesichert.")
  191.                    (choices "alte übernehmen" "neu erstellen")
  192.               )
  193.         )
  194. )
  195.  
  196. (if (OR (= modus 1) (= mode 1))(
  197.  
  198.     (if (exists cfg0)(
  199.         (delete (tackon pfad "Ref.CFG_ALT"))
  200.         (rename cfg0 (tackon pfad "Ref.CFG_ALT"))
  201.     ))
  202.  
  203.     (set display (askchoice (prompt "\nAuf welchem Screen soll Reflections arbeiten:\n")
  204.                 (help (cat "\nDie hier vorgegebenen Auflösungen werden am häufigsten "
  205.                       "verwendet. Wenn Ihre Grafikkarte andere darstellen kann, "
  206.                       "können Sie die gewünschte Auflösung in der Datei "
  207.                       "Ref.CFG selbst eintragen.\n"
  208.                       "Die mit AGA gekennzeichneten Auflösungen stehen nur auf dem A1200 und A4000 "
  209.                       "zur Verfügung, wenn Sie eine Auflösung für eine Grafikkarte einstellen, "
  210.                       "vergewissern Sie sich zuvor, ob diese auch von Ihrer Grafikkarte dargestellt "
  211.                       "werden kann."))
  212.                 (choices "Workbench-Screen" "640 x 256" "640 x 512"
  213.                      "640 x 400 (AGA)" "640 x 480 (AGA)" "1280 x 512 (AGA)"
  214.                      "1024 x 768 (Grafikkarte" "1280 x 1024 (Grafikkarte)")
  215.              )
  216.     )
  217.  
  218.     (if (> display 0)
  219.         (set color (askchoice (prompt "Mit wievielen Farben soll der Reflections-Screen arbeiten:\n")
  220.                       (help (cat "\nBei normalen Amigas können max. 16 Farben verwendet werden, "
  221.                          "Amigas mit AGA-Chipset unterstützen bis zu 256 Farben. "
  222.                          "Bei Verwendung einer Grafikkarte prüfen Sie bitte zuvor, wieviele Farben verwendet werden können.\n"
  223.                          "HINWEIS: Die Solid-Darstellung funktioniert erst ab 16 Farben."))
  224.                       (choices "8" "16" "32" "64" "128" "256" "32768" "65536" "16 Mio. (24bit)")
  225.                )
  226.         )
  227.     )
  228.  
  229.     (set tdir (askdir (prompt "Wo soll Reflections seine temporären Dateien ablegen?\n")
  230.               (help "\nHier wählen Sie ein Verzeichnis für temporäre Files von Reflections.\nUnter 8 MB Ram sollten Sie die Ram-Disk dafür NICHT verwenden.")
  231.               (default "RAM:")
  232.           )
  233.     )
  234.  
  235.     (textfile (dest cfg0) (include cfg1)
  236.          (append (cat "TEMP_DIR " tdir
  237.             "\n\n;---------- Start-Skript ------------------------"
  238.             "\nSTART_SKRIPT " (tackon pfad "Skripts/START.SKR")
  239.             "\n\n;---------- Textur-Pfade ------------------------"
  240.             "\nTEXTUR_PFAD " (tackon pfad "Textur")
  241.             "\nTEXTUR_PFAD " (tackon pfad "Textur2")
  242.             "\n\n;--- Wo sucht der File-Requester zuerst nach Szenen ---"
  243.             "\nSZENEN_PFAD " (tackon pfad "Szenen")
  244.             "\n\n;--- Wo sucht der File-Requester zuerst nach Materialien ---"
  245.             "\nMATERIAL_PFAD " (tackon pfad "Material")
  246.             "\n\n;--- Wo sucht der File-Requester zuerst nach 3D-Fonts ---"
  247.             "\nFONT_PFAD " (tackon pfad "Fonts3d")
  248.             "\n\n;--- Wo sucht der File-Requester zuerst nach Bildern ---"
  249.             "\nBILD_PFAD " (tackon pfad "Bild")
  250.             "\n\n;--- Wo sucht der File-Requester zuerst nach Anims ---"
  251.             "\nANIMATIONS_PFAD " (tackon pfad "Anim")
  252.             "\n\n;--- Filename mit Pfad der Win.CFG-Datei -------------"
  253.             "\nWIN_KONFIG_DATEI " (tackon pfad "Win.CFG")
  254.             "\n\n;  ============================"
  255.             "\n;     Eintraege fuer Beams 4"
  256.             "\n;  ============================"
  257.             "\n\nMAX_ANTIAL 30"
  258.             "\nOBJ_CACHE 2000\n")
  259.          )
  260.     )
  261.  
  262.     (textfile (dest cfg0) (include cfg0) (append "MAX_LIST 15\n\n\n"))
  263.  
  264.     (if (> display 0)(
  265.         (if (= display 1) (set screen "640 256"))
  266.         (if (= display 2) (set screen "640 512"))
  267.         (if (= display 3) (set screen "640 400"))
  268.         (if (= display 4) (set screen "640 480"))
  269.         (if (= display 5) (set screen "1280 512"))
  270.         (if (= display 6) (set screen "1024 768"))
  271.         (if (= display 7) (set screen "1280 1024"))
  272.         (if (= color 0) (set bildschirm "3"))
  273.         (if (= color 1) (set bildschirm "4"))
  274.         (if (= color 2) (set bildschirm "5"))
  275.         (if (= color 3) (set bildschirm "6"))
  276.         (if (= color 4) (set bildschirm "7"))
  277.         (if (= color 5) (set bildschirm "8"))
  278.         (if (= color 6) (set bildschirm "15"))
  279.         (if (= color 7) (set bildschirm "16"))
  280.         (if (= color 8) (set bildschirm "24"))
  281.         (textfile (dest cfg0) (include cfg0)
  282.             (append (cat ";   =================\n;    Bildschirmmodus\n;   =================\n\nDISPLAY "
  283.                      screen " " bildschirm "\n\n"))
  284.         )
  285.     ))
  286.  
  287.     (complete 97)
  288.  
  289.     (set rgb (askchoice (prompt "\nWollen Sie einen externen RGB-Viewer einbinden?")
  290.             (help "\nHier können Sie ein externes Programm z.B. von Ihrer "
  291.                   "Grafikkarte auswählen, um Bilder zu betrachten.")
  292.             (choices "kein externer Viewer" "VT installieren" "eigenen Viewer einbinden")
  293.          )
  294.     )
  295.  
  296.     (if (= rgb 1)(
  297.         (working "\nInstallation von VT...")
  298.         (run (cat "lhex -fw" (tackon pfad "Weiteres") " x vt.lha"))
  299.         (set view (tackon pfad "Weiteres/VT"))
  300.     ))
  301.  
  302.     (if (= rgb 2) (set view (askfile (prompt "Bitte Wählen Sie das RGB-Viewer Programm:")
  303.                      (help "\nHier wählen Sie nun die Programm-Datei, die gestartet "
  304.                         "wird, wenn Sie RGB-Bilder betrachten wollen.")
  305.                      (default "SYS:")
  306.                 )
  307.               )
  308.     )
  309.  
  310.     (if (> rgb 0)
  311.         (textfile (dest cfg0) (include cfg0)
  312.             (append (cat ";   =================\n;    Externer Viewer\n;   =================\n\nRGB_VIEWER "
  313.                      view "\n\n")
  314.             )
  315.         )
  316.     )
  317.  
  318.     (if (< update 2)(
  319.         (set cfg2 (expandpath "REF3:Ref3.CFG"))
  320.         (set oldconfig (askoptions (prompt "Welche Teile Ihrer alten Reflections v3 Konfiguration möchten Sie übernehmen?\n")
  321.                        (help "\nHier können Sie auswählen, welche Pfade und Einstellungen von Reflections v3 auch in die Konfig-Datei von Reflections 4 übernommen werden sollen.")
  322.                        (choices "Auflösungen" "Material-Pfad" "Font-Pfad" "Bild-Pfad" "Animations-Pfad" "Textur-Pfade")
  323.                        (default 3)
  324.                    )
  325.         )
  326.         (if (> oldconfig 0)
  327.             (textfile (dest cfg0) (include cfg0)
  328.                 (append ";   ==============================================\n;    Übernommene Einstellungen von Reflections v3\n;   ==============================================\n\n")
  329.             )
  330.         )
  331.         (if (= (BITAND oldconfig 1) 1)
  332.             (textfile (dest cfg0) (include cfg0)
  333.                 (append (cat "ADD AUFLOESUNG " cfg2 "\n\n"))
  334.             )
  335.         )
  336.         (if (= (BITAND oldconfig 2) 2)
  337.             (textfile (dest cfg0) (include cfg0)
  338.                 (append (cat "ADD MATERIAL_PFAD " cfg2 "\n\n"))
  339.             )
  340.         )
  341.         (if (= (BITAND oldconfig 4) 4)
  342.             (textfile (dest cfg0) (include cfg0)
  343.                 (append (cat "ADD FONT_PFAD " cfg2 "\n\n"))
  344.             )
  345.         )
  346.         (if (= (BITAND oldconfig 8) 8)
  347.             (textfile (dest cfg0) (include cfg0)
  348.                 (append (cat "ADD BILD_PFAD " cfg2 "\n\n"))
  349.             )
  350.         )
  351.         (if (= (BITAND oldconfig 16) 16)
  352.             (textfile (dest cfg0) (include cfg0)
  353.                 (append (cat "ADD ANIMATIONS_PFAD " cfg2 "\n\n"))
  354.             )
  355.         )
  356.         (if (= (BITAND oldconfig 32) 32)
  357.             (textfile (dest cfg0) (include cfg0)
  358.                 (append (cat "ADD TEXTUR_PFAD " cfg2 "\n\n"))
  359.             )
  360.         )
  361.     ))
  362. ))
  363.  
  364. (complete 98)
  365.  
  366. (delete cfg1)
  367.  
  368. (complete 99)
  369.  
  370. (if (= modus 1) (
  371.     (textfile (prompt "\nNun wird die Umgebungs-Variable Ref4 in env: und envarc: gesetzt.")
  372.               (help (cat "\nDas Installationsprogramm erstellt die Datei "
  373.                          "envarc:Ref4 mit dem Installations-Pfad als Inhalt und kopiert sie"
  374.                          " anschließend nach RAM:Env. Reflections benötigt diese Variable um"
  375.                  " sein Home-Directory zu finden."))
  376.               (dest "envarc:Ref4")
  377.               (append pfad)
  378.               (confirm expert)
  379.     )
  380.     (copyfiles (source "envarc:Ref4") (dest "env:"))
  381.  
  382. ))
  383.  
  384. (complete 100)
  385.